适当减少手机使用,有助于视力保护... 新的一年祝您:身体健康,阖家欢乐!~~

reset_jetbrains_eval_windows.vbs 文件完整代码

浏览量:1862 作者:admin 类别:: 学习笔记 更新时间:2022-02-01 20:06:08
Set oShell = CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")
sHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
sJBDataFolder = oShell.ExpandEnvironmentStrings("%APPDATA%") + "JetBrains"

Set re = New RegExp
re.Global     = True
re.IgnoreCase = True
re.Pattern    = ".?(IntelliJIdea|GoLand|CLion|PyCharm|DataGrip|RubyMine|AppCode|PhpStorm|WebStorm|Rider).*"

Sub removeEval(ByVal file, ByVal sEvalPath)
   bMatch = re.Test(file.Name)
    If Not bMatch Then
      Exit Sub
   End If

   If oFS.FolderExists(sEvalPath) Then
      oFS.DeleteFolder sEvalPath, True 
   End If
End Sub

If oFS.FolderExists(sHomeFolder) Then
   For Each oFile In oFS.GetFolder(sHomeFolder).SubFolders
       removeEval oFile, sHomeFolder + "" + oFile.Name + "configeval"
   Next
End If

If oFS.FolderExists(sJBDataFolder) Then
   For Each oFile In oFS.GetFolder(sJBDataFolder).SubFolders
       removeEval oFile, sJBDataFolder + "" + oFile.Name + "eval"
   Next
End If

MsgBox "done"


重置pycharm 30天试用期.


到期了每30分钟程序会要求重启。学习时本来写的就慢,半小时一会就到了,比较麻烦。

今天重装了一下,又多了30天的时间。

网上的破解,看了半天,也没有个能用的。

搜到了一个重置30的代码

关于博主
北京南城网络及弱电【张工】为您提供:
校园网、楼宇、村镇、园区,光纤网络覆盖,无线覆盖 华为|H3c|锐捷|爱快|panabit等品牌,路由、交换机、AC、AP 无源光网络(PON)设备,布署、调试、维运,等服务...
应急/临时光纤熔接...[藤仓22S]
博文为学习python所写:内容摘自网络、学习笔记、记事备忘。
QQ:872876353,欢迎交流学习、加Q注明来意。

诗文鉴赏

《满江红》· 岳飞
落星侵晓没,
残月半山低。
怒发冲冠,
凭栏处、潇潇雨歇。
抬望眼、仰天长啸,壮怀激烈。
三十功名尘与土,八千里路云和月。
莫等闲、白了少年头,
空悲切。
源于生活-记录日常
The site based on python 3 with flask...